home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / games_d / rtankexe.zip / TS.TXT < prev    next >
Text File  |  1989-03-01  |  336b  |  36 lines
  1. select 5
  2. make dist
  3.  
  4. :align
  5. gleft
  6. jeq ctdir,cgdir,:start
  7. goto :align
  8.  
  9. :start
  10. lock 1
  11.  
  12. :again
  13. scope dist
  14. jeq   ctdir,dist,:attack
  15. face  dist
  16. goto :again
  17.  
  18. :attack
  19. fire
  20. move
  21. jeq  blockage,1,:stuck
  22. goto :again
  23.  
  24. :stuck
  25. auto 1
  26. right
  27. right
  28.  
  29. set dist,10
  30. :wait
  31. add dist,-1
  32. jneq dist,0,:wait
  33.  
  34. auto 0
  35. goto :again
  36.